Imports BusinessLogic
Imports BusinessEntity
Imports System.Data
Imports System
Imports Microsoft.VisualBasic
Imports DevExpress.Web.ASPxUploadControl
Imports System.Web.UI
Imports System.IO
Imports System.Drawing

Partial Class Pages_Controls_ctlDatosTitular
    Inherits System.Web.UI.UserControl

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        btnSubir.Attributes.Add("OnClick", "javascript:window.open('frmCargarFoto.aspx','CargarFoto','width=800,height=600,left=200, top=200,directories=no,location=no,menubar=no,resizable=no,scrollbars=1,status=no,toolbar=no'); window.uplImage.focus(); ")

        If Not Me.IsPostBack Then

            If Not IsNothing(Request.QueryString("KEY")) Then
                Dim variable As String = "" & Request.QueryString("KEY").ToString()

                Session.Add("TitularID", variable)

                If variable <> 0 Then
                    CargaDatosTitular()
                Else

                    NuevaFichaTitular()
                End If
            Else
                NuevaFichaTitular()
            End If


        End If

    End Sub

    Private Sub CargaDatosTitular()
        Dim objDatosTitular As New BusinessLogic.crFichaTitular
        Dim ds As BusinessEntity.CCTitular

        lblMensaje.Visible = False
        ds = objDatosTitular.GetDatosFichaTitular(DBUtilities.TitularID)
        txtTitularID.Text = ds.TitularID
        txtCodMembresia.Text = ds.CodMembresia
        txtPersonaID.Text = ds.PersonaID
        Session.Add("TitularID", ds.TitularID)
        Session.Add("PersonaID", ds.PersonaID)
        cmbUbigeo.Value = ds.Ubigeo
        txtApellidoMaterno.Text = ds.ApellidoMaterno
        txtApellidoPaterno.Text = ds.ApellidoPaterno
        txtNombres.Text = ds.Nombres
        txtCodPersona.Text = ds.CodPersona
        txtNumeroDocumento.Text = ds.NroDocumento
        cmbTipoDocumento.Value = ds.TipoDocumento
        txtEmail.Text = ds.Email
        txtDireccion.Text = ds.Direccion
        txtTelefonoCasa.Text = ds.Telefonocasa
        txtTelefonoCelular.Text = ds.Telefonocelular
        txtRutaFoto.Text = ds.RutaFoto
        imgFoto.ImageUrl = ds.RutaFoto
        cmbPaisNacimiento.Value = ds.Paisnacimiento
        cmbSexo.Value = ds.Sexo
        cmbEstadoCivil.Value = Convert.ToInt32(ds.Estadocivil)
        cmbFechaNacimiento.Value = Convert.ToDateTime(ds.FechaNacimiento)
        cmbEnvioCorrespondencia.Value = ds.Enviocorrespondencia

    End Sub

    Private Sub GrabaDatosTitular()
        Dim objDatosTitular As New BusinessLogic.crFichaTitular
        Dim ds As New BusinessEntity.CCTitular

        Try
            ds.TitularID = Convert.ToInt32(txtTitularID.Text)
            ds.PersonaID = Convert.ToInt32(txtPersonaID.Text)
            ds.Ubigeo = Convert.ToInt32(cmbUbigeo.Value)
            ds.ApellidoMaterno = txtApellidoMaterno.Text
            ds.ApellidoPaterno = txtApellidoPaterno.Text
            ds.Nombres = txtNombres.Text
            ds.CodPersona = Convert.ToInt32(txtCodPersona.Text)
            ds.NroDocumento = txtNumeroDocumento.Text
            ds.TipoDocumento = cmbTipoDocumento.Value
            ds.Email = txtEmail.Text
            ds.Direccion = txtDireccion.Text
            ds.Telefonocasa = txtTelefonoCasa.Text
            ds.Telefonocelular = txtTelefonoCelular.Text
            ds.RutaFoto = txtRutaFoto.Text
            ds.Paisnacimiento = cmbPaisNacimiento.Value
            ds.Sexo = cmbSexo.Value
            ds.Estadocivil = Convert.ToInt32(cmbEstadoCivil.Value)
            ds.FechaNacimiento = Format(cmbFechaNacimiento.Value, "dd/MM/yyyy")
            ds.Enviocorrespondencia = cmbEnvioCorrespondencia.Value

            If objDatosTitular.GrabarFichaTitular(ds) Then
                Response.Redirect("~/Pages/frmGestionarSocio.aspx?KEY=" + Convert.ToString(ds.TitularID))
            Else
                lblMensaje.Visible = True
                lblMensaje.Text = "No Grabo"
            End If

        Catch ex As System.IO.FileNotFoundException
            lblMensaje.Visible = True
            lblMensaje.Text = "No Grabo" 'ex.Message

        Catch ex As Exception

            lblMensaje.Visible = True
            lblMensaje.Text = "No Grabo" ' ex.Message

        End Try

    End Sub


    Private Sub NuevaFichaTitular()

        txtFichaIncripcionID.Text = 0
        txtTitularID.Text = 0
        txtPersonaID.Text = 0
        'cargar las sesion con los datos
        Session.Add("TitularID", 0)
        Session.Add("PersonaID", 0)

        txtCarreraID.Text = 0
        txtUbigeoID.Text = 0
        cmbPaisNacimiento.Value = ""
        txtApellidoMaterno.Text = ""
        txtApellidoPaterno.Text = ""
        txtNombres.Text = ""
        txtCodPersona.Text = 0
        txtNumeroDocumento.Text = ""
        cmbTipoDocumento.Value = "DNI"
        txtEmail.Text = ""
        txtDireccion.Text = ""
        txtTelefonoCasa.Text = ""
        txtTelefonoCelular.Text = ""
        txtRutaFoto.Text = ""
        cmbSexo.Value = "Hombre"
        cmbEstadoCivil.Value = "1"
        cmbFechaNacimiento.Value = Now()
        cmbEnvioCorrespondencia.Value = "Si"


    End Sub

    Protected Sub btnGrabar_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        GrabaDatosTitular()
    End Sub

   

End Class